www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\D_do_htm_x_zhuanti.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>





<LINK href="../css.css" type=text/css rel=stylesheet>
<%

dir_set="../../"


%>


<!--#include file=../../inc/conn.asp-->
<!--#include file=../../inc/Functionb.asp-->

<!--#include file=../../inc/ajaxLIB.asp-->

<!--#include file=../inc/checkadmin2.asp-->

<!--#include file=../../inc/functionFiless.asp-->

<!--#include file=../../inc/ND_class_function.asp-->


<!--#include file=inc_lanmu_bla.asp-->

<!--#include file=makehtm_inc/clsCachea.asp-->


<%
is_cmsa=1
if cstr(request("isqiye")&"")="1" then
is_cmsa=0
end if







dowhata=cstr(request("dowhat"))
sys_content_type=trim(request("sys_content_type"))






pageaa=request("pageaa")



pageaa=replace_webfiles_names(pageaa,is_cmsa)

cids=""
for i=1 to clng(request("len1"))
aa1=cstr(request("htmcl_"&cstr(i))&"")
if aa1<>"" then
cids=cids&aa1&","
end if
next
if cids<>"" then
cids=left(cids,len(cids)-1)





if dowhata="1" then
response.redirect "D_goto_make_cst_zhuantis_htm_by_zids.asp?cids="&cids&"&page="&pageaa&"&olynew=1"&"&isqiye="&request("isqiye")

end if

if dowhata="2" then
response.redirect "D_goto_make_cst_zhuantis_htm_by_zids.asp?cids="&cids&"&page="&pageaa&"&olynew=0"&"&isqiye="&request("isqiye")

end if



else
%>
<script language="javascript">
alert("请至少选中一个专题");
history.go(-1);
</script>
<%
end if


%>